﻿Imports System.IO.IsolatedStorage
Imports System.ComponentModel

Class Application
    'Shared Sub New()
    'End Sub
    Public Shared ReadOnly Property IsInDesignMode As Boolean
        Get
            Dim b As Boolean = DesignerProperties.IsInDesignModeProperty.GetMetadata(GetType(DependencyObject)).DefaultValue
            'Dim b As Boolean = DesignerProperties.GetIsInDesignMode(New DependencyObject)
        End Get
    End Property
    Protected Overrides Sub OnStartup(ByVal e As System.Windows.StartupEventArgs)
        MyBase.OnStartup(e)
    End Sub
End Class
